%POR PESO DE 500KG/540 DIAS SEXO M/ANGLETON
evaluar(V1,V2,V3,V4,R):-V1>=455,V1<495,V2>=479,V2<535,V3='m',V4='angleton',R='esta bien 1'.
evaluar(V1,V2,V3,V4,R):-V1>=455,V1<495,V2>=535,V2=<545,V3='m',V4='angleton',R='esta bien 2'.
evaluar(V1,V2,V3,V4,R):-V1>=455,V1<495,V2>545,V3='m',V4='angleton',R='esta mal 3',write(R).

evaluar(V1,V2,V3,V4,R):-V1>=495,V1=<505,V2>=479,V2<535,V3='m',V4='angleton',R='esta bien 4'.
evaluar(V1,V2,V3,V4,R):-V1>=495,V1=<505,V2>=535,V2=<5455,V3='m',V4='angleton',R='esta bien 5'.
evaluar(V1,V2,V3,V4,R):-V1>=495,V1=<505,V2>545,V3='m',V4='angleton',R='esta mal 6'.

evaluar(V1,V2,V3,V4,R):-V1>505,V2>=479,V2<535,V3='m',V4='angleton',R='esta bien 7'.
evaluar(V1,V2,V3,V4,R):-V1>505,V2>=535,V2=<545,V3='m',V4='angleton',R='esta bien 8'.
evaluar(V1,V2,V3,V4,R):-V1>505,V2>545,V3='m',V4='angleton',R='esta mal 9'.

